계량적 MDS | 비계량적 MDS |
구간척도, 비율척도 | 서열척도 |
유클리디안 거리 행렬 | 서열척도를 거리속성으로 변환 |
R에서 'cmd scale' 함수 사용 | R에서 'isoMDS' 함수 사용 |
> cal<-c(52, 160, 89, 57, 34, 32, 30, 69)
> car<-c(112.4, 8.5, 22.8, 14.5, 8.2, 7.7, 7.6, 18.1)
> fat<-c(0.2, 14.7, 1.3, 0.7, 0.2, 0.3, 0.2, 0.2)
> pro<-c(0.3, 2.0, 1.1, 0.3, 0.8, 0.7, 0.6, 0.7)
> fib<-c(2.4, 6.7, 2.6, 2.4, 0.9, 2.0, 0.4, 0.9)
> sug<-c(10.4, 0.7, 12.2, 9.9, 7.9, 4.7, 6.2, 15.5)
> fruits<-data.frame(cal, car, fat, pro, fib, sug)
> fruits_dist<-dist(fruits)
> fruits_loc<-cmdscale(fruits_dist)
> plot(x_loc, y_loc, type='n')
> text(x_loc, y_loc, rownames(fruits))
> abline(v=0, h=0)